約 2,635,831 件
https://w.atwiki.jp/pipopipo777/pages/128.html
【メール その34】 【メール その35】 日時 2009年1月14日 (水) 01 16 件名 今夜のガザ ガザはたった今、午前 1時15分。今日は比較的静穏だったように思う! そう感じるというだけで、実際は、F16によるガザ市への空襲が複数回あり、またラファの国境地帯に対しても集中的な空襲があったのだが! まさに今、イスラエルの攻撃用ヘリがガザ市の南地区に照明弾を投下している! 人道面の状況は最悪に向かっている! 毎日、新たな日が訪れるたびに、死者の数も負傷者の数も、破壊被害の数々も都市部、農村部の両方で増加の一途をたどっている。環境については言うまでもない。軍事作戦がやむと、間をおかず環境の危機が宣言されるだろう。また、農業はめちゃくちゃにされてしまった。何百台もの戦車や軍用車が畑を走り回り、イスラエル軍が作戦展開したいところは好き放題、どこもかしこも軍事用ブルドーザーが植物を踏み潰し木々を根こそぎにしている! 先のメールで、複数の UNRWAの学校が、家を失ったり戦闘を恐れて家を逃げ出したパレスチナ人の避難所になっていると伝えた。今日、その文章を訂正したい。現在、パレスチナ人が暮らしている UNRWAの学校は 33校。どの学校にも 120家族がいる(先のメールでは 120人と書いたが、そうではなく)。UNRWAが毛布と一日 3度の食事をこれらの避難家族に提供している。地元の NGOも複数、寄付をしている。 今日はまた、さらに何人かの外科医が病院で支援するためにガザに入ることを許された。一方、シファー病院の外科で何日も働いていたノルウェーの医療チーム(外科医 2名)はガザを去った。エジプト、ヨルダン、アルジェリア、サウジアラビア、スーダンからも医師が駆けつけている。スーダンのチームはスーダンの人々が献血してくれた血液バッグをもってガザに向かっている途中だ。 死者はおおよそ 1000の命になり、負傷者は 4300人以上に達している! 死者のうち 331人が子ども、99人が女性だ。遺体がいまだ瓦礫の下や戸外に残されている者たちは含まれていない。たとえば今日、医療チームは攻撃初日に亡くなった人の遺体にようやくたどり着くことができた! ガザ市北部にあるジャバリーヤ難民キャンプ出身の 92歳の老人の遺体だ。老人は白旗を掲げていた! 家族全員の行方が知れない例、あるいは、行方不明、負傷、死亡と家族がばらばらになってしまった例がたくさんある。爆撃で身体に障害を負った子どもたちや女性の話にも事欠かない! 精神的ショックやトラウマで心理治療を必要とする者の話にも事欠かない! 通りの一本一本にたくさんの物語があり、どの家族にもいくつもの物語があるのだ! 【メール その36】 自家発電で命がけで世界に発信された現地(ガザ)の声
https://w.atwiki.jp/fifer/pages/5.html
メールで稼ぐ ここではメールを受信することでポイントがたまるサイトを紹介していきます。 1.フルーツメール #ref error :ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 ( CENTER A HREF ="http //banana.fruitmail.net/cgi/introduce_jump1.cgi?3313927" TARGET="_blank" IMG SRC="http //www.fruitmail.net/image/fruit234.gif" BORDER=0 BR FONT SIZE="2" B フルーツメール /B /FONT /A /CENTER ) 1ポイント=1円 登録すると100ポイントゲット!! フルーツロトで毎月1000万円ゲットのチャンスあり!! お友達紹介で300ポイントゲット!! 会員登録が長いのですが、自宅には何も送られてきません。コツコツとためていればいつの間にか大金を入手しています。管理人としてもオススメです。ぜひ登録を!! オススメ度★★★★★ 2.Get Money #ref error :ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 ( a href="http //www.dietnavi.com/?id=869888" img border="0" src="http //dietnavi.com/gma-l.gif" width="468" height="60" /a ) 10ポイント=1円 1メール=10ポイント 友達紹介もできます 比較的すぐにポイントがたまるサイトです。またゲームをすることによってもポイントがたまります。メールで送られてきたURLをクリックするだけでポイントがたまってしまいます!! オススメ度★★★★
https://w.atwiki.jp/octopus/pages/82.html
メール系 金銀クリスタル 名称 説明 値段 はながらメール 花柄の便せん 書いたメールをポケモンに持たせる 50円 なみのりメール ラプラスの便せん 書いたメールをポケモンに持たせる 50円 みずいろメール ミニリュウの便せん 書いたメールをポケモンに持たせる 50円 にがおえメール 持たせたポケモンがプリントされる 書いたメールをポケモンに持たせる 50円 ラブリーメール ハートマークがかわいい便せん 書いたメールをポケモンに持たせる 50円 おんぷメール ネイティの便せん 書いたメールをポケモンに持たせる 50円 ブイブイメール イーブイのシルエットの便せん 書いたメールをポケモンに持たせる ? へんしんメール メタモンのシルエットの便せん 書いたメールをポケモンに持たせる ?
https://w.atwiki.jp/coharu/pages/511.html
一通のメール (1), (2), (3), (4), (5) 名前 コメント この野郎氏 一通のメール 保管庫
https://w.atwiki.jp/55syota/pages/131.html
212 :調教メール:2008/10/28(火) 17 40 48 ID LLK6udqv ボクの名前は伊織。男の子なのに女の子っぽい名前。 皆には、可愛くてボクに似合ってる名前だなんて言われちゃってる。 だからってわけじゃないと思うけど、前触れもなくある日の深夜に突然、とても、とてもとてもエッチなメールが届いた。 件名は、調教命令。 『こんなに深夜まで起きているということは、よっぽど調教して欲しいみたいだな。 お待ちかねの命令だ。いいか、実行し終わってから報告しろ。 いまからキャミソールとスカートに着替えて、公園まで行け。下着はナシだ。 公園まで行ったらトイレの個室に入り、鍵を掛けずにオナニーしろ』 「な、なにこの変なメール!?」 そこまで読んで、ボクは思わずケータイを放り投げた。 こんな冗談を言いそうな友達なんて居ないし、もちろん知らない人のメールアドレスからだった。 きっと間違いメールだと思うけど……。 だけどどうしてボクが今日は珍しく夜更かししてるのを知ってるんだろう。 ボクは恐る恐るケータイを拾い直して、メールの続きを読んでみた。 頭の中で読み上げるのも恥ずかしいくらいエッチでひどい命令が、まだいくつも続いてる。 本当に知らない人からなのかな? それならどうしてボクがキャミソールとスカートを持ってることを知ってるんだろう。 自分で買ったわけじゃなくて、誕生日にクラスの女子がからかい半分にくれた服だけど。 それに、どうして知ってるんだろう。ボクが……。 気が付いたらボクはキャミソールとスカートに着替えちゃってた。 だってそのメールは突然過ぎてたし、ボクが女の子の服を持ってるなんて秘密も言い当てていたし。 まるでボクのことをなんでも知っているみたいで怖くて、言うことを聞かなきゃって気がして……。 ボクは家族に気付かれないようにそっと家を出た。 もう外は真っ暗だったけど、もしも誰かに見られちゃったら……。 男の子なのにスカートを穿いて、しかも下着もつけてないのを見られちゃう。 ミニスカートだから歩くだけでもひらひらして裸のお尻が見えちゃうし、おちんちんも隠せてない……! 早く近くの公園に行かなくちゃ! 「あれ、伊織?」 「え、け、圭太先輩!?」 突然に声を掛けられて振り向くと、暗い夜道から知ってる人の声が聞こえてきた。 ボクと同じ塾の高等部に通ってる圭太先輩だ! 家が隣同士だからって、こんなときに外で会っちゃうなんて! 「こんな時間におまえみたいな子供がなにを……て、ん? おまえ、その格好……」 圭太先輩の影が怪しむみたいに近寄ってくる。 いくら夜で見え難いからって近くで見られたらボクの女装がバレちゃう! 優しい圭太先輩に変態って思われちゃう! 「あの、ボク、急いでるから、ごめんなさい!」 「あ、おい、伊織!?」 背中から聞こえてくる圭太先輩の声を振り払って、ボクは街灯の明かりを避けながら必死で走り逃げた。 逃げ出した勢いそのままに公園まで走り込む。 心臓がドキドキしっ放しなのは、走ってきたからだけじゃないと思う。 圭太先輩以外にも、ここまで来るあいだに何度も車とすれ違ったりもしたもん。 スカートを押さえるのも忘れちゃってたから、絶対見られちゃってる。 女の子の格好したボクのおちんちん……。 「ウ、ウソ……?」 何気なく自分のあそこを見てみたら、立っちゃってた。 おちんちんがスカートを持ち上げて、生地に染みができちゃってる。 ボク、興奮してたの? 先輩や車に乗ってた人達に女装してるのを見られて……。 やっぱりあのメールを送った人は、ボク以上にボクのことを知ってるのかもしれない。 213 :調教メール:2008/10/28(火) 17 42 06 ID LLK6udqv だけど、ボクはしたくてこんな変態的なことをしてるんじゃないもん。 あのメールを送った人がボクに命令をするから、ボクのことをなんでも知ってそうだから、だから言うことを聞くしかないんだもん。 ボクは掃除もあんまりされてなさそうな公園のトイレの個室に入って、スカートをめくり上げた。 おしっことかの匂いが凄く臭いのに、なんでかあんまり気にならない。 深夜だけど個室のドアに鍵も掛けてないから、いつ誰が入ってくるかもわからないのに……。 ――ぐちゅっ。 「ふあっ……!」 おちんちんを握っただけで粘っこい音がするくらい、ボクはもう興奮しきっちゃってた。 覚えたばっかりのエッチなひとり遊びを、こんなところでするなんて……! ――くちゅっくちゅっくちゅっ。 友達に比べても小さなボクのおちんちんを、友達に比べても小さなボクの手できゅって握って、上下に擦る。 「んゆっ、んっんっんっ、んんっ……!」 おちんちんの芯から熱くなるみたいな気持ちいいくすぐったさと、耳まで届いてくるエッチなお汁が泡立つ音に、ボクの頭はポーっとしていく。 快感に足がガクガクしてきて、もう立ってられない。 綺麗だとは思えなかったけど我慢できなくて、ボクは個室のタイルの上に崩れ落ちた。 友達にムリヤリ見せられたエッチな本の女の人みたいにM字型に足を広げて、おちんちんをくちゅくちゅ擦り続ける。 「ひううっ!」 もうダメっていうときになって、メールに書かれてた命令の続きが頭の中に浮かんできた。 『イクときには大きな声でイクって言うんだ。 誰がどこをどういうふうにしてイクのか、大きな声でな』 そんなことしたら、誰かに聞かれちゃうかもしれない! 頭ではわかってるのに、わかってるはずなのに。 おちんちんを擦るボクの手は止まらないで、勝手に口は動いちゃってた。 「イクッイクイクイクううううっ! い、伊織はおちんちんをごしごししてイッちゃうの! おちんちん気持ち良くて伊織イクのっ! ぅうううぅひきゅうううううううーーーーっ!」 ――びゅくっびゅくびゅくっ! 感じたこともないくらいの快感にボクのおちんちんは振り子みたいに大きく揺れて、先っちょから真っ白くて濃いお汁を高く吹き上げた! 「はぅ、はぁ、はううぅ……ふあ……」 ボクは自分のお汁を頭から浴びながら、疲れ果ててそのまま眠ってしまった。 214 :調教メール End:2008/10/28(火) 17 43 56 ID LLK6udqv 「なあ、コイツいつ起きるんだ?」 「さあ、その内起きるだろ」 「お、やっと目が開いたぞ」 なんだかうるさい。ボクの周りからいろんな男の人の声が聞こえる。 「うぐ? うみゅ……?」 ぼんやりしながら起きたボクは、口の中いっぱいになにかが詰められてるのに気付いた。 なんだろう。 裸みたいに肌寒いし、お腹の奥にもなんだか違和感がある。 ううん、お腹の奥っていうか、お尻からお腹の中になにかが引っかかってるみたいな……? 「う、また出るぞ……! 起きたんならちゃんと飲めよ!」 口の中で熱くて硬い棒がビクビクって震えた! 喉の奥に生臭くてネバネバしたなにかが注ぎ込まれてきて、ボクはわけもわからないで慌てて飲み下した。 「ん、んぐっ! んくっこくんくぅっ!」 これ、おちんちんから出る……精子? でもボクのよりずっと濃くて生臭い! 口の中に入ってるのはおちんちんなんだ。それも大人の男の人の。 お尻に入ってるのも、もしかして……? 「そら、こっちも出るぞ! 腹いっぱい注ぎ込んでやるぞ!」 ――どくっどくっどくっどくっ! 「んんーーーーーーっ!?」 ボクは口に入れられてるおちんちんを舌で押し出そうとしながら、お尻の中に熱いネバネバが叩き付けられるのをどうしようもなく感じた。 ボクの周りには何人もの男の人が居る。 2人とか3人とか、そんな数人じゃない。車の中いっぱいの男の人が、ボクにおちんちんを突きつけてる。 あれ、ボクは確か公園のトイレで眠っちゃったはずなのに。 「ど、どうしふぇ……う、ぷえ……けふっ!」 どうしてワゴン車の中なんかに居るのって聞こうとしたのに、自由になった口を開いたら涎と一緒に白く濁ったお汁が、だらだら唇の端から溢れ出しちゃった。 「ん? なんでここに居るのかわからないか?」 男の人のひとりが言いたいことをわかってくれたみたいで、ボクの脚のあいだから目を合わせてきた。 あ、ボクのお尻の中におちんちん入れてるの、この人なんだ……。 「女の子が露出しながら出歩いてんの見つけたからさ、仲間呼んで持ち帰ってやろうと思ってな」 「探し回ってみたら公園の便所で女装したガキが寝てんじゃん? 俺らが最初見た女の子もおまえだよな?」 呆然としてるボクに、他の男の人達も説明を続ける。 「最初ムカついたけどこれはこれで可愛いよな? つか女よりずっといいわって話になってな?」 「んでヤってんのよ、わかる? あ、おまえが起きる前にケツだけでも5回はやってっから。寝ながら喘いでんのエロくて良かったわ」 下品な笑い声を上げながら、男の人は満足したみたいでボクのお尻からおちんちんを引き抜いた。 ――こぷうっ。 「ひうっ、や、やだぁ……!」 お尻の穴からネバネバしたのが零れ出ちゃう感触がした。 気が付いてみたら、お腹がなんだか張ってるみたい。お尻の、腸の中にいっぱい熱いのが満たされちゃってる……! 口の中もにちゃにちゃしたお汁が舌や歯茎に纏わり付いてる。裸にされた体が真っ白に見えるくらい、どこもここもぬるぬるにされてる。 「い、いやあああああああああああぐっ!」 パニックになって悲鳴を上げたボクの口に、新しいおちんちんが詰められた……。 明け方、ボクは家の前で解放された。家を覚えられちゃった……。でも、またしてくれるかも……。 こっそり家の中に入って、体についたままの精液を指ですくって舐めながら、ボクは報告を書こうとケータイを手に取った。 結局、メールを送ったのは誰だったんだろう。あの男の人達じゃなさそうだし、ボクの知ってる人……? 考えながら見てみると、同じ人から新しいメールが来てた。新しい、命令……? ドキドキしながらメールを開く。 『スイマセン! さっきのメールは間違えメールでした! マジであれ冗談ですから気にしないでください!』 受信日時はボクが家を出たすぐあと。ボクは……見なかったことにした。
https://w.atwiki.jp/gods/pages/80808.html
メールドウン(メール・ドウン) メルドゥーンの別名。
https://w.atwiki.jp/namamonolink/pages/76.html
リードメール わくわくメール 貯め~る.net
https://w.atwiki.jp/wiki6_a/pages/52.html
【不思議メール】 依頼をこなすと素晴らしい物が貰える 不思議のダンジョン「ふしぎなメール」交換スレ http //game10.2ch.net/test/read.cgi/poke/1132258699/ ちいさなもり3Fの依頼が二つあったとしたら、 一つ選ぶと一つ赤字になって一度には行けない 既に持ってるともだちエリアの依頼は クリアすると1000ポケもらえる Q 片方のソフトにしか出ないポケモンをもう片方に出現させるには? A 不思議なメールのパスワードを使うことで出現させることが可能。 『青の救助隊』にプラスルを出現させる場合 1.『赤の救助隊』で依頼主か助ける相手がプラスルになっている依頼のパスワードを確認する。 2.『青の救助隊』で不思議なメールのパスワードを入力、1の依頼を送る。 3.受けた依頼を解決。以降、そのダンジョンでプラスルが出現するようになる。 電磁波の洞窟4・5Fに行ったらリストに出る
https://w.atwiki.jp/qmail/pages/19.html
件名・宛先・添付ファイルなしの場合に警告を出す 指定ドメイン以外へのメール送付に警告を出す 返信メールの名前に自動で"様"を付ける BCCの付加をアカウント毎に する・しない を設定したい。 新規メールを常に署名を記載した状態で開く 返信時に名前を削除 送信者/宛先をアドレス帳にある名前で表示 HTMLのタグを取るテンプレート HTMLメールをHTMLメールで返信する 返信メールの引用をOE風にする スペルチェックはできますか? 件名・宛先・添付ファイルなしの場合に警告を出す 次のルールをrules.xmlで指定してください。 ruleSet folder="送信箱" rule match="@True()" use="active" description="To,Subjecの空白、添付ファイルなし、の警告" apply @Progn(@If(@Not(To),@Set('a','- To\n'),1),@If(@Not(@Subject(@True(),@True())),@Set('a',@Concat($a,'- Subject\n')),1),@If(@Not(@Body()),@Set('a',@Concat($a,'- 本文\n')),1),@If(@And(@RegexMatch(@Body(),/添付|attached|attachment/i),@Not(@Attachment())),@Set('a',@Concat($a,'- 添付\n')),1),@If($a,@Progn(@Draft(@True()),@If(@Equal(6,@MessageBox(@Concat($a,'\nがないけど送信する?\n----------------------------------------\n はい(Y) - そのまま送信\n いいえ(N)- 再編集'),68)),@Draft(@False()),@InvokeAction('MessageCreate','edit','',@URI()))),@Exit())) /apply /rule /ruleSet 下記の状況で警告を出すようにしました Toが空白のとき Subjectが空白のとき(Re だけのときなども空白とみなす) 本文に「添付」「attached」「attachment」の単語があるにもかかわらず添付ファイルがないとき 警告が出たら? はい(Y)-そのまま送信する いいえ(N)-送信せず、メール編集画面に戻る ※ 下記のように4を68にすると警告音もでます ,@MessageBox(@Concat($a,' がないけど送信する?\n-------------------------\n はい(Y) - そのまま送信\n いいえ(N)- 再編集'),68)) ※ IMAP4アカウントでは機能しません。IMAP4ではスクリプトで対応します。→ スクリプト集 ■本家メモ参照 http //snak.tdiary.net/20070213.html#p02 指定ドメイン以外へのメール送付に警告を出す 次のルールをrule.xmlで指定してください。 ruleSet folder="送信箱" rule match="@True()" use="active" description="To,Subjecの空白、添付ファイルなし、の警告" apply @Progn(@Set('tgt',@If(@And(Cc,Bcc),@Concat(To,', ',Cc,', ',Bcc),@If(Cc,@Concat(To,', ',Cc),To))),@While($tgt,@Progn(@Set('mail',@If(@SubstringBefore($tgt,', '),@SubstringBefore($tgt,', '),$tgt)),@Set('tgt',@SubstringAfter($tgt,', ')),@If(@RegexMatch($mail,/@hogehoge\.com|@hogera/i),1,@Set('msg',@Concat($msg,'- ',$mail,'\n'))))),@If($msg,@Progn(@Draft(@True()),@If(@Equal(6,@MessageBox(@Concat($msg,'\nが指定外メールだけど送信する?\n----------------------------------------\n はい(Y) - そのまま送信\n いいえ(N)- 再編集'),68)),@Draft(@False()),@InvokeAction('MessageCreate','edit','',@URI()))),@Exit())) /apply /rule /ruleSet 許可するドメイン、アドレスの一部を正規表現で指定します。 上記のマクロの @hogehoge\.com|@hogera の部分を変更します。この場合では @hogehoge.com @hogera のどちらかを含むメール以外で警告を出します。 この部分を @hogera\.com とすればこのドメイン以外で警告を出します。.は\.とエスケープすることに注意してください。 返信メールの名前に自動で"様"を付ける ■reply.templateの中を下記に変更 元 To {@If(@Exist('Reply-To'), Reply-To, From)} 変更後 To {@Progn(@Set('to', @If(Reply-To, Reply-To, From)), @RegexReplace($to, /(?!様)("?) /, '様$1 ', GLOBAL))} ■reply_all.templateを下記に変更(二箇所) 元 $from, 変更後 @Progn(@Set('to', @If(Reply-To, Reply-To, From)), @RegexReplace($to, /(?!様)("?) /, '様$1 ', GLOBAL)), 元 @Concat('Cc ', $val, '\n'), 変更後 @Progn(@Set('val1',@RegexReplace($val, /(?!様)("?) /, '様$1 ', GLOBAL)),@Concat('Cc ', $val1, '\n')), BCCの付加をアカウント毎に する・しない を設定したい。 設定はQMAILを終了してから行うこと。 [変更点] ■account.xml Globalセクションに追加 key name="Bcc" 1 /key ※ キーを作らなければBCCにならない。ならないようにキーを作る場合は値を0にする。 ■reply_all.template、reply.template @Equal(@Profile('', 'Global', 'Bcc', '1'), '0'), の前に下記を追加↓ @Equal(@Profile(@Concat('accounts/', @Account(), '/account.xml'), 'Global', 'Bcc','0'), '1'), @Concat('Bcc ', @I(@Account(), X-QMAIL-SubAccount), '\n'), ■new.template、forward.template @Set('bcc', @Equal(@Profile('', 'Global', 'Bcc', '1'), '1')), を下記に入れ替え↓ @Set('bcc', @Or(@Equal(@Profile('', 'Global', 'Bcc', '1'), '1'),@Equal(@Profile(@Concat('accounts/', @Account(), '/account.xml'), 'Global', 'Bcc','0'), '1'))), QMAILの設定にあるBCC付加オプションはBCCつけないにしてから、上記を必要なACCOUNTに対してKeyを付け加えればオケ。 この設定法をする場合、「オプション」-「その他2」のBCC付加のチェックははずしておく。ここをチェックすると、すべてのアカウントでBCC付加になります。 新規メールを常に署名を記載した状態で開く 下記のマクロをnew.templateの最後に空行を付けないように付け加える。 {@Progn( @Set('acct',@Account()), @If( @Equal($acct,'_hogera'), @Set('sig','hogera hogera@hoge.com \nTEL 123456\nFAX 9876543'), @Equal($acct,'hogu.co.jp'), @Set('sig','hogu.co.jp\nHogera Hogu'), @Set('sig','デフォルトの署名\nほげほげ') ), @Concat('X-QMAIL-Signature ','\n\n\n--\n',$sig) )} 注意点 このサンプルはサブアカウントは無視 上記でhogera、hogu.co.jpというのがアカウント名。hogeraというアカウントならhogera hoge以下の署名、hogu.co.jpというアカウントなら、hogu.co.jp[改行]Hogera Hoguという署名、それ以外ならすべての新規メールでデフォルトの署名[改行]ほげほげ という署名を付加。\nは改行を意味します。 わざわざX-QMAIL-Signature というヘッダを付けているのは、オプションの設定で署名が付けられていたりした場合に強制的に「なし」の状態でエディット画面を開くようにするため。不要ならとってください。 返信や転送でも同じようにできます。@Load()を使って署名を一件ずつファイルにしてファイル名をアカウント名で保存しておき、それを読み込むなどすれば署名を変えたいときに多少便利かも。 返信時に名前を削除 返信時の宛先が「ほげほげ hogera@hoge.com 」となっている場合に、「ほげほげ」の部分を削除するに、テンプレートを変更します。 ■reply_all.template 元) $from, '\n', @If($val, @Concat('Cc ', $val, '\n'), 変更後) @RegexReplace($from,/[^ ,]+ /,' ',@True()), '\n', @If($val, @Concat('Cc ', @RegexReplace($val,/[^ ,]+ /,' ',@True()), '\n'), ■reply.template 元) To {@If(@Exist('Reply-To'), Reply-To, From)} 変更後) To {@If(@Exist('Reply-To'), @RegexReplace(Reply-To,/[^ ,]+ /,' ',@True()), @RegexReplace(From,/[^ ,]+ /,' ',@True()))} 送信者/宛先をアドレス帳にある名前で表示 表示→カラムのカスタマイズ→送信者/宛先 @If(@Sent(),@Concat('⇒ ',@FormatAddress(To, FORMAT-NAME, LOOKUP-FORCE)),@FormatAddress(From, FORMAT-NAME, LOOKUP-FORCE)) HTMLのタグを取るテンプレート @Bodyを表示する部分を下記に変更 {@If( @RegexMatch(@Body('',1), / HTML/i), @Progn( @Set('x',@Body('',1)), @While( @RegexMatch($x,/ PRE ((? .|\n)+?\n(? .|\n)+?) \/PRE /i), @Progn( @Set('dum',$_1), @Set('x',@RegexReplace($dum,/\n/,' BR ',@True())), @RegexReplace($x,/ PRE ((? .|\n)+?\n(? .|\n)+?) \/PRE /i,$dum), ) ), @Set('x',@RegexReplace($x, / DIV[^ ]* (?!\n)/i, '¶', @True())), @Set('x',@RegexReplace($x, / DIV[^ ]* /i, '', @True())), @Set('x',@RegexReplace($x, /\n/, ' ', @True())), @If(@RegexMatch($x,/ BODY/i), @Progn( @Set('x',@RegexReplace($x, /(.* BODY.*? )(.*)/i, '$2', @True())), @Set('x',@RegexReplace($x, /( \/BODY .*)( \/BODY )/i, '$2', @True())) ), @Set('x',@Concat($x,'\n /BODY /HTML ')) ), @Set('x',@RegexReplace($x, / BR /i, '¶', @True())), @Set('x',@RegexReplace($x, /( P[^ ]*margin-bottom 1[0-9][^ ]* (? (?! \/P ).)* \/P )/i, '$0¶', @True())), @Set('x',@RegexReplace($x, / P[^ ]*class=mso[^ ]* /i, '¶', @True())), @Set('x',@RegexReplace($x, / P[^ ]* /i, '¶¶', @True())), @Set('x',@RegexReplace($x, /\r|\n/, '', @True())), @Set('x',@RegexReplace($x, / HEAD .* \/HEAD /i, '', @True())), @Set('x',@RegexReplace($x, / HR[^ ]* /i, '¶∬¶', @True())), @Set('x',@RegexReplace($x, / [^ ]* /, '', @True())), @Set('x',@RegexReplace($x, /<| /, ' ', @True())), @Set('x',@RegexReplace($x, />| /, ' ', @True())), @Set('x',@RegexReplace($x, /&| /, ' ', @True())), @Set('x',@RegexReplace($x, /"|"/, '"', @True())), @Set('x',@RegexReplace($x, / | /, ' ', @True())), @Set('x',@RegexReplace($x, /’/, '\'', @True())), @Set('x',@RegexReplace($x, /¶[\s|¶]+¶/, '¶¶', @True())), @Set('x',@RegexReplace($x, /¶+∬¶+/, '\n\n----------------------------------------------------------------------\n', @True())), @Set('x',@RegexReplace($x, /\s+¶/, '¶', @True())), @Set('x',@RegexReplace($x, /¶¶¶+/, '¶¶', @True())), @Set('x',@RegexReplace($x, /¶/, '\n', @True())), @If(@RegexMatch($x, / #\d{{2,6}};/), @Set('x',@Script('result.value =arguments(0).replace(/ #(\\d{{2,6}})\;/g,function($0,$1){{return(String.fromCharCode($1));}})','JScript',$x)), @True() ), @Concat($x) ), @Body(@Profile('', 'Global', 'Quote', ' '), 1) ) } HTMLメールをHTMLメールで返信する 下記を create_HTML全員返信.template という名前でTemplates\mail フォルダに保存。返信したいHTMLメールを右クリックしてテンプレートからHTML全員返信を選ぶ。 自分でHTML書く必要あります。 あと、引用した元メールのHTMLを大幅にダイエットします。 {@Catch(@Exist('From'), @Exit())} { @Progn(@Set('val', @Progn(@Set('from', @If(@Exist('Reply-To'), Reply-To, From)), @Set('to', @Remove(To, @Address(@I(@Account(), X-QMAIL-SubAccount)), @Address($from))), @Set('cc', @Remove(Cc, @Address(@I(@Account(), X-QMAIL-SubAccount)), @Address($from))), @Concat($to, @If(@And($to, $cc), ', ', ''), $cc))), @Concat('To ', $from, '\n', @If($val, @Concat('Cc ', $val, '\n'), ''))) }Subject Re {@Subject(@True(), @True())} { @If(@Equal(@Profile('', 'Global', 'Bcc', '1'), '0'), '', @And(@Equal(@Profile('', 'Global', 'NoBccForML', '1'), '1'), @Or(@Exist('X-ML-Name'), @BeginWith(Subject, '['))), '', @Concat('Bcc ', @I(@Account(), X-QMAIL-SubAccount), '\n')) }{ @Progn(@Set('id', @MessageId()), @Set('ref', @References(4)), @Concat(@If($id, @Concat('In-Reply-To ', $id, '\n'), ''), @If(@Or($ref, $id), @Concat('References ', @If(@And($ref, $id), @Concat($ref, ' ', $id), $ref, $ref, $id), '\n'), ''))) }X-QMAIL-Account {@Account()}{ @If(X-QMAIL-SubAccount, @Concat('\nX-QMAIL-SubAccount ', X-QMAIL-SubAccount), '') } X-QMAIL-Macro @ForEach(@Messages('{@Concat('//', @Account(), '/', @Folder())}', {@Id()}), @Replied(@True())) X-QMAIL-OriginalCharset {@BodyCharset(1)}{ @If(@Equal(@Profile('', 'Global', 'SaveSentInSameFolder', '0'), '1'), @Concat('\nX-QMAIL-Sentbox ', @Folder()), '') } Content-Type text/html; charset={ @If( @And(@Multipart(),@Catch(@If(@Part(0),@True(),@True()),@False())), @If( @RegexMatch(@Body('',2,@Part(0)),/ HTML| P | \/DIV | \/FONT /i), @Progn(@Set('Body',@Body('',2,@Part(0)), GLOBAL),@BodyCharset(2,@Part(0))), @RegexMatch(@Body('',2,@Part(1)),/ HTML| P | \/DIV | \/FONT /i), @Progn(@Set('Body',@Body('',2,@Part(1)), GLOBAL),@BodyCharset(2,@Part(1))), @RegexMatch(@Body('',2,@Part(1,@Part(0))),/ HTML| P | \/DIV | \/FONT /i), @Progn(@Set('Body',@Body('',2,@Part(1,@Part(0))), GLOBAL),@BodyCharset(1,@Part(0))), @Progn(@Set('Body',@Body('',1,@Part(1)), GLOBAL),@BodyCharset(1,@Part(1))), ), @Progn(@Set('Body',@Body('',1), GLOBAL),@BodyCharset(1)) )} !DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" HTML HEAD TITLE /TITLE STYLE !-- BODY,P,PRE {{font-family Arial}} BLOCKQUOTE {{margin 0px;border-left 2px solid blue;padding 3pt}} PRE {{font-size 100%}} PRE ここに返信メールを書く。HTMLタグを書くときはpreタグ取ってください。 /PRE P ----- Original Message ----- BR B From /B {@Name(From)} BR B Sent /B { @Progn( @Set('x',@FormatDate(@Date(Date), '%W1, %M2 %D, %Y4 %h %m %z', 2)), @Concat($x) ) } BR B To /B {@Name(To)} BR {@If(@Exist('Cc'), @Concat(' B Cc /B ',@Name(Cc),' BR \n'), '')} B Subject /B {Subject} P {@Progn( @Set('x',$Body), @Set('x',@RegexReplace($x, /^[-_=\.]+NextPart.*$/im, '', @True())), @Set('x',@RegexReplace($x, /^--------------\w+-+$/m, '', @True())), @While( @RegexMatch($x,/ PRE ((? .|\n)+?\n(? .|\n)+?) \/PRE /i), @Progn( @Set('dum',$_1), @Set('x',@RegexReplace($dum,/\n/,' BR ',@True())), @RegexReplace($x,/ PRE ((? .|\n)+?\n(? .|\n)+?) \/PRE /i,$dum), ) ), @Set('x',@RegexReplace($x, / DIV[^ ]* (?!\n)/i, '¶', @True())), @Set('x',@RegexReplace($x, / DIV[^ ]* /i, '', @True())), @Set('x',@RegexReplace($x, /\n/, ' ', @True())), @If(@RegexMatch($x,/ BODY/i), @Progn( @Set('x',@RegexReplace($x, /(.* BODY.*? )(.*)/i, '$2', @True())), @Set('x',@RegexReplace($x, /( \/BODY .*)( \/BODY )/i, '$2', @True())) ), @Set('x',@Concat($x,'\n /BODY /HTML ')) ), @Set('x',@RegexReplace($x, / BR /i, '¶', @True())), @Set('x',@RegexReplace($x, /( P[^ ]*margin-bottom *1[0-9][^ ]* (? (?! \/P ).)* \/P )/i, '$0¶', @True())), @Set('x',@RegexReplace($x, / P[^ ]*class=mso[^ ]* /i, '¶', @True())), @Set('x',@RegexReplace($x, / P[^ ]* /i, '¶¶', @True())), @Set('x',@RegexReplace($x, / META[^ ]* /i, '', @True())), @Set('x',@RegexReplace($x, / !--.*?-- /i, '', @True())), @Set('x',@RegexReplace($x, / STYLE (.*?) \/STYLE /i, '', @True())), @Set('x',@RegexReplace($x, / \/DIV | P.*? | \/P /i, '', @True())), @Set('x',@RegexReplace($x, / FONT[^ ]* ( | nbsp;)* \/FONT /i, '', @True())), @Set('x',@RegexReplace($x, / HR([^ ]*) /i, ' HR ', @True())), @Set('x',@RegexReplace($x, / \?xml [^ ]+ /i, '', @True())), @Set('x',@RegexReplace($x, /style="[^"]+(COLOR [^"]+")/i, 'style="$1', @True())), @Set('x',@RegexReplace($x, /(mso-|FONT-FAMILY |FONT-SIZE |FONT-WEIGHT )[^ ]+(["']) /i, '$2 ', @True())), @Set('x',@RegexReplace($x, / face="[^"]+"/i, '', @True())), @Set('x',@RegexReplace($x, / face=(,|\w)+/i, '', @True())), @Set('x',@RegexReplace($x, / size="?\d"?/i, '', @True())), @Set('x',@RegexReplace($x, / onclick=["'][^ ]+["']/i, '', @True())), @Set('x',@RegexReplace($x, / (class|id|lang)=[\w\-"]+/i, '', @True())), @Set('x',@RegexReplace($x, / (src|background)="cid [^ ]*/i, '', @True())), @Set('x',@RegexReplace($x, / style=(""|'')/i, '', @True())), @Set('x',@RegexReplace($x, /(\s)+/, ' ', @True())), @Set('x',@RegexReplace($x, / /, ' ', @True())), @Set('x',@RegexReplace($x, /( | nbsp;)+¶/, '¶', @True())), @Set('x',@Script( END function foo($x){{ $x=$x.replace(/ ([a-zA-Z ]*)([^ ]*) (? ((? nbsp;| )*?)|(? ([a-zA-Z ]*)([^ ]*) )((? nbsp;| )*?)(? \/\4 )) \/\1 /ig,''); $x=$x.replace(/ (FONT|SPAN)([^ ]*) ([^ ]*?) \/\1 \1\2 ([^ ]*?) \/\1 /ig,' $1$2 $3$4 \/$1 '); $x=$x.replace(/ (FONT|SPAN)([^ ]*) ([^ ]*?) \/\1 \1\2 ([^ ]*?) \/\1 /ig,' $1$2 $3$4 \/$1 '); $x=$x.replace(/ (FONT|SPAN)([^ ]*) ([^ ]*?) \1\2 ([^ ]*?) \/\1 ([^ ]*?) \/\1 /ig,' $1$2 $3$4$5 \/$1 '); $x=$x.replace(/ (st1 [a-z\-]+)[^ ]* (.*?) \/\1 /ig,'$2'); $x=$x.replace(/ (o p) (.*?) \/\1 /ig,'$2'); $x=$x.replace(/ (FONT) ((? (?! \/?\1).)*) \/\1 /ig,'$2'); $x=$x.replace(/ (SPAN) ((? (?! \/?\1).)*) \/\1 /ig,'$2'); return $x; }} function foo1($x){{ $x=$x.replace(/¶ ( \/?[^ ]* )/ig,'¶$1'); return $x; }} $x = foo(arguments(0)); $x = foo($x); $x = foo($x); $x = foo1($x); result.value = $x; END ,'JScript',$x)), @Set('x',@RegexReplace($x, /(\s| nbsp;)+¶/, '¶', @True())), @Set('x',@RegexReplace($x, /¶¶¶+/, '¶¶', @True())), @Set('x',@RegexReplace($x, /^¶+/, '', @False())), @Set('x',@RegexReplace($x, /¶/, ' BR \n', @True())), @Set('x',@RegexReplace($x, / HR ( BR )*/i, ' HR \n', @True())), @Set('x',@RegexReplace($x, /( BLOCKQUOTE[^ ]* )( BR )+/i, '$1\n', @True())), @Set('x',@RegexReplace($x, /( \/BLOCKQUOTE )( BR )+/i, '$1\n', @True())), @Set('x',@Script( END function foo2($x){{ $n=$x.split(/\n/); str=''; dum=''; re=/^( (FONT)([^ ]+) )(.*)( \/FONT BR )$/i; for(key in $n){{ r=re.exec($n[key]); if(r !=null){{ if(dum==''){{ str+= RegExp.$1 + '\n' + RegExp.$4; dum=RegExp.$3; }}else if(dum!=RegExp.$3){{ str+=' \/FONT BR \n' + RegExp.$1 + '\n' + RegExp.$4 + RegExp.$5 +'\n'; dum=''; }}else{{ str+=' BR \n' + RegExp.$4; dum=RegExp.$3; }} }}else{{ if(dum==''){{ str+=$n[key]+'\n'; }}else{{ str+=' \/FONT BR \n' + $n[key]+'\n'; }} dum=''; }} }} return str; }} function foo3(str){{ str=str.replace(/ BR \n BR /ig,'\n P '); return str; }} $x = foo2(arguments(0)); $x = foo3($x); result.value = $x; END ,'JScript',$x)), @If( @RegexMatch($x, / #\d{{2,6}};/), @Set('x',@Script('result.value =arguments(0).replace(/ #(\\d{{2,6}})\;/g,function($0,$1){{return(String.fromCharCode($1));}})','JScript',$x)), @True() ), @Concat($x) ) } 返信メールの引用をOE風にする テンプレートの返信部分を下記に変更。 ■元 At {@FormatDate(@Date(Date), '%D %M1 %Y4 %h %m %s %z', 2)} {@Name(From)} wrote ■変更後 ----- Original Message ----- From {@Name(From)} Sent {@FormatDate(@Date(Date), '%W1, %M2 %D, %Y4 %h %m %z', 2)} To {@Name(To)} {@If(@Exist('Cc'), @Concat('Cc ',@Name(Cc),'\n'), '')}Subject {Subject} スペルチェックはできますか? ■本家FAQ http //q3.snak.org/doc/HowToCheckSpell.html
https://w.atwiki.jp/loliauk/pages/39.html
263 名前:名無しさん@お腹いっぱい。 投稿日:2006/01/15(日) 18 43 「買ってから一度も着てないので新品同様です。状態に問題はありません。」 と説明欄に書いてあったのに届いたものは糸くずやほこり、髪の毛とかが全体についていて気持ち悪かった。 黒色の服だったからゴミが目立ちすぎてとても新品同様とは思えなかった・・・orz 説明文を信じて定価ギリギリまで入札しちゃったから悔しい。 この場合は出品者に商品状態の事を連絡した方が良いでしょうか? 説明欄にはノークレームと書いてあったのですが・・・ 264 名前:名無しさん@お腹いっぱい。 投稿日:2006/01/15(日) 19 32 糸くずや髪の毛を除いてみて、商品の状態に問題が無くて 相手も良い人っぽかったら(対応が丁寧とか)特に言わないかな。 相手が嫌な感じだったら、メールした上で返事次第では評価にも書く。 273 名前:名無しさん@お腹いっぱい。 投稿日:2006/01/16(月) 01 12 263 たまにそういうのある…髪の毛どれだけつけてんだみたいなの 一瞬引くけどノークレで黙って諦めてる 鞄落札したら、激しく型崩れしてるし白だから黄ばみや黒ずみがあったり 「底に少し汚れあり。底で見えないのであまり気にならない」 てあったのに明らかに少しじゃないレベルの凄い気になる汚れだったり。 元の半額以下の落札だからそんなもんなのか…orz もうちょっと値段出して他の出品者のにすればと激しくオモタ 塚、黄ばみや難は記載しといてくれ。 高級感のかけらもない・・・そして評価付ける気にならない 同じくチラ裏ゴメン 274 名前:名無しさん@お腹いっぱい。 投稿日:2006/01/16(月) 01 57 263 商品自体に破損がある訳じゃないんだろうけど、保管状態が良くなかったんだろうね。 うちもペットがいるから保管には気を使うし 着てない服でも出品前にはクリーニング出してゴミが付いてないかチェックしてから出すよ。 274 名前:名無しさん@お腹いっぱい。 投稿日:2006/01/16(月) 01 57 263 商品自体に破損がある訳じゃないんだろうけど、保管状態が良くなかったんだろうね。 うちもペットがいるから保管には気を使うし 着てない服でも出品前にはクリーニング出してゴミが付いてないかチェックしてから出すよ。